Public Class SQLParseFKTable
    Inherits SQLParser

    Protected Overrides Function MyParserState() As SQLParserState
        Return SQLParserState.SQLParseFKTable
    End Function

    Protected Friend Overrides Sub ParseCommands(ByVal Commands() As String, ByRef tables As TableList)
        If Commands.Length < 2 Then Return
        If Commands(0).ToLower() = "references" Then
            tables.ActiveTable.ActiveColumn.FKTable = Commands(1)
            tables.ActiveTable.ActiveColumn.FKColumn = True
            Me.SetParserState(SQLParserState.SQLParseAlterColumnDefinition)
        End If
    End Sub
End Class
